;; EX-15.scm - Benchmark tests of processor capacity

;; An interpolating oscillator benchmark.  Sum, scale and output a
;; bank of interpolating oscillators.

(let ((n 150))
  (FDiv (let loop ((z 0) (i 0))
	  (if (>= i n)
	      z
	      (loop (SinOsc.ar 200 0 1 z) (+ i 1))))
	(* n 16)))

;; Klang benchmark.  

(let ((n 600))
  (Klang.ar 1 0 (Klang.spec (make-list n 200)) (/ 0.05 n)))

;; Get status (or use RSI server window)

(->< "status.reply" "/status")
